ggplot(mpg, aes(reorder(manufacturer, hwy), hwy)) + geom_boxplot(colour = "grey70") + geom_point(position = position_jitter(h = 0, w = 0.2), pch = 1) + theme(axis.text.x = element_text(angle = 45, hjust = 1)) + labs(x = "Manufacturer", y = "Highway MPG")
And some more words
About nothing in particular
| manufacturer | model | displ | year | cyl | trans | drv | cty | hwy | fl | class |
|---|---|---|---|---|---|---|---|---|---|---|
| nissan | altima | 2.5 | 2008 | 4 | manual(m6) | f | 23 | 32 | r | midsize |
| volkswagen | passat | 1.8 | 1999 | 4 | auto(l5) | f | 18 | 29 | p | midsize |
| hyundai | sonata | 3.3 | 2008 | 6 | auto(l5) | f | 19 | 28 | r | midsize |
| audi | a6 quattro | 2.8 | 1999 | 6 | auto(l5) | 4 | 15 | 24 | p | midsize |
| mercury | mountaineer 4wd | 4.6 | 2008 | 8 | auto(l6) | 4 | 13 | 19 | r | suv |
| hyundai | tiburon | 2.0 | 2008 | 4 | auto(l4) | f | 20 | 27 | r | subcompact |
| ford | f150 pickup 4wd | 5.4 | 2008 | 8 | auto(l4) | 4 | 13 | 17 | r | pickup |
| hyundai | tiburon | 2.0 | 1999 | 4 | manual(m5) | f | 19 | 29 | r | subcompact |
| ford | mustang | 4.6 | 2008 | 8 | manual(m5) | r | 15 | 23 | r | subcompact |
| dodge | ram 1500 pickup 4wd | 4.7 | 2008 | 8 | auto(l5) | 4 | 13 | 17 | r | pickup |